AOL File Library: 4,101 to 4,200

home *** CD-ROM | disk | FTP | other *** search

/ AOL File Library: 4,101 to 4,200 / aol-file-protocol-4400-4101-to-4200.zip / AOLDLs / Shareware Demos / TOOTHPIK_ V3.0 Dental Office Mgr / TOTHDEMO.exe / CLEAN98.MDX (.txt) < prev next >

Wrap

dBASE Multiple Index | 1997-05-03 | 216KB | 7,600 lines

CLEAN98 HOLIDAY N730L N800L N830L N900L N930L N1000L N1030L N1100L N1130L N1200L N1230L N100L N130L N200L N230L N300L N330L N400L N430L N500L N530L N600L A_DATE HOLIDAY HOLIDAY N730L XXXXXXXXX XXXXXXXXX N730L N800L N800L N830L N830L N900L N900L N930L N930L N1000L N1000L N1030L N1030L N1100L N1100L N1130L N1130L N1200L XXXXXXXXX XXXXXXXXX N1200L N1230L XXXXXXXXX XXXXXXXXX N1230L N100L N100L N130L N130L N200L N200L N230L N230L N300L N300L N330L N330L N400L N400L N430L N430L N500L N500L N530L XXXXXXXXX XXXXXXXXX N530L N600L XXXXXXXXX XXXXXXXXX N600L A_DATE A_DATE RIG LK ! SAF" SET$ EDU% DP& ' CLO( T C* Y O+ S, CAP- FIN/ DOW0 _ra1 OM 2 TO 3 DO4 INE6 OW 7 OM 8 TO 9 PA: FIN< DOW= set> 3,? 20,@ UBLA caB r gC seD prgE PUF sc_G c, H iveI driJ c_dK p_cL BLIN _clO db_P senQ , sR lr,S _clT ac_U sp_V UBLX nt_Y intZ min[ mi\ UBL^ _nu_ l_d` ge_a an_b QIc hoid _mee f C sg s, h _l,i t_fj PUk mp_l mp_m srn RESp FROq etur ITIs & gt tupu anv e pw STOy OM z var{ TIV| } RE ~ E ~ E pdr8 = sp_driver && assign selected printer driver DO COLOR SET MESSAGE TO SET SAFETY ON CLEAR GETS CLOSE FORMAT RELEASE WINDOW W1 CLEAR TYPEAHEAD SET ESCAPE ON ON ERROR DO Err_proc WITH INKEY(), PROGRAM(), LINENO(), ERROR(),; DBF(), MESSAGE() ***check for number of records ...limit = 50 n_rec = 0 && number of records USE PATMAIN.DBF IN A ORDER TAG CUSTNO USE PATCHARG.DBF IN B ORDER TAG USE PATPAY.DBF IN C ORDER TAG CUSTNO USE HISTORY.DBF IN D ORDER TAG CUSTNO SELECT A && use paymain n_rec = RECCOUNT() IF n_rec > 50 ** setup aray to hold id#s to delete DECLARE d_aray[n_rec] i_dex =1 GO TOP SCAN WHILE i_dex <= (n_rec -50) ** put id#s in aray d_aray[i_dex] = A->CUSTNO DELETE i_dex = i_dex +1 ENDSCAN i_dex =1 SELECT B && use patcharg XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX ! XXXXXXXXX " XXXXXXXXX # XXXXXXXXX $ XXXXXXXXX % XXXXXXXXX & XXXXXXXXX ' XXXXXXXXX ( XXXXXXXXX ) XXXXXXXXX * XXXXXXXXX E * XXXXXXXXX , XXXXXXXXX - XXXXXXXXX . XXXXXXXXX / XXXXXXXXX 0 XXXXXXXXX 1 XXXXXXXXX 2 XXXXXXXXX 3 XXXXXXXXX 4 XXXXXXXXX 5 XXXXXXXXX 6 XXXXXXXXX 7 XXXXXXXXX 8 XXXXXXXXX 9 XXXXXXXXX : XXXXXXXXX ; XXXXXXXXX < XXXXXXXXX = XXXXXXXXX > XXXXXXXXX ? XXXXXXXXX @ XXXXXXXXX A XXXXXXXXX B XXXXXXXXX C XXXXXXXXX D XXXXXXXXX E XXXXXXXXX F XXXXXXXXX G XXXXXXXXX H XXXXXXXXX I XXXXXXXXX J XXXXXXXXX K XXXXXXXXX L XXXXXXXXX M XXXXXXXXX N XXXXXXXXX O XXXXXXXXX P XXXXXXXXX Q XXXXXXXXX R XXXXXXXXX S XXXXXXXXX T XXXXXXXXX E * XXXXXXXXX V XXXXXXXXX W XXXXXXXXX X XXXXXXXXX Y XXXXXXXXX Z XXXXXXXXX [ XXXXXXXXX \ XXXXXXXXX ] XXXXXXXXX ^ XXXXXXXXX _ XXXXXXXXX ` XXXXXXXXX a XXXXXXXXX b XXXXXXXXX c XXXXXXXXX d XXXXXXXXX e XXXXXXXXX f XXXXXXXXX g XXXXXXXXX h XXXXXXXXX i XXXXXXXXX j XXXXXXXXX k XXXXXXXXX l XXXXXXXXX m XXXXXXXXX n XXXXXXXXX o XXXXXXXXX p XXXXXXXXX q XXXXXXXXX r XXXXXXXXX s XXXXXXXXX t XXXXXXXXX u XXXXXXXXX v XXXXXXXXX w XXXXXXXXX x XXXXXXXXX y XXXXXXXXX z XXXXXXXXX { XXXXXXXXX | XXXXXXXXX } XXXXXXXXX ~ XXXXXXXXX E * XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX E * XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX E * XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX E XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX > XXXXXXXXX @ XXXXXXXXX B XXXXXXXXX D XXXXXXXXX F XXXXXXXXX H FORMAT RELEASE WINDOW W1 CLEAR TYPEAHEAD SET ESCAPE ON ON ERROR DO Err_proc WITH INKEY(), PROGRAM(), LINENO(), ERROR(),; DBF(), MESSAGE() ***check for number of records ...limit = 50 n_rec = 0 && number of records USE PATMAIN.DBF IN A ORDER TAG CUSTNO USE PATCHARG.DBF IN B ORDER TAG USE PATPAY.DBF IN C ORDER TAG CUSTNO USE HISTORY.DBF IN D ORDER TAG CUSTNO SELECT A && use paymain n_rec = RECCOUNT() IF n_rec > 50 ** setup aray to hold id#s to delete DECLARE d_aray[n_rec] i_dex =1 GO TOP SCAN WHILE i_dex <= (n_rec -50) ** put id#s in aray d_aray[i_dex] = A->CUSTNO DELETE i_dex = i_dex +1 ENDSCAN i_dex =1 SELECT B && use patcharg ! " # $ % & ' ( ) * E * , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T E * V W X Y Z [ \ ] ^ _ ` a b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~ E * E * E * E N P R T V X FORMAT RELEASE WINDOW W1 CLEAR TYPEAHEAD SET ESCAPE ON ON ERROR DO Err_proc WITH INKEY(), PROGRAM(), LINENO(), ERROR(),; DBF(), MESSAGE() ***check for number of records ...limit = 50 n_rec = 0 && number of records USE PATMAIN.DBF IN A ORDER TAG CUSTNO USE PATCHARG.DBF IN B ORDER TAG USE PATPAY.DBF IN C ORDER TAG CUSTNO USE HISTORY.DBF IN D ORDER TAG CUSTNO SELECT A && use paymain n_rec = RECCOUNT() IF n_rec > 50 ** setup aray to hold id#s to delete DECLARE d_aray[n_rec] i_dex =1 GO TOP SCAN WHILE i_dex <= (n_rec -50) ** put id#s in aray d_aray[i_dex] = A->CUSTNO DELETE i_dex = i_dex +1 ENDSCAN i_dex =1 SELECT B && use patcharg ! " # $ % & ' ( ) * E * , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T E * V W X Y Z [ \ ] ^ _ ` a b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~ E * E * E * E ^ ` b d f h FORMAT RELEASE WINDOW W1 CLEAR TYPEAHEAD SET ESCAPE ON ON ERROR DO Err_proc WITH INKEY(), PROGRAM(), LINENO(), ERROR(),; DBF(), MESSAGE() ***check for number of records ...limit = 50 n_rec = 0 && number of records USE PATMAIN.DBF IN A ORDER TAG CUSTNO USE PATCHARG.DBF IN B ORDER TAG USE PATPAY.DBF IN C ORDER TAG CUSTNO USE HISTORY.DBF IN D ORDER TAG CUSTNO SELECT A && use paymain n_rec = RECCOUNT() IF n_rec > 50 ** setup aray to hold id#s to delete DECLARE d_aray[n_rec] i_dex =1 GO TOP SCAN WHILE i_dex <= (n_rec -50) ** put id#s in aray d_aray[i_dex] = A->CUSTNO DELETE i_dex = i_dex +1 ENDSCAN i_dex =1 SELECT B && use patcharg ! " # $ % & ' ( ) * E * , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T E * V W X Y Z [ \ ] ^ _ ` a b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~ E * E * E * E n p r t v x FORMAT RELEASE WINDOW W1 CLEAR TYPEAHEAD SET ESCAPE ON ON ERROR DO Err_proc WITH INKEY(), PROGRAM(), LINENO(), ERROR(),; DBF(), MESSAGE() ***check for number of records ...limit = 50 n_rec = 0 && number of records USE PATMAIN.DBF IN A ORDER TAG CUSTNO USE PATCHARG.DBF IN B ORDER TAG USE PATPAY.DBF IN C ORDER TAG CUSTNO USE HISTORY.DBF IN D ORDER TAG CUSTNO SELECT A && use paymain n_rec = RECCOUNT() IF n_rec > 50 ** setup aray to hold id#s to delete DECLARE d_aray[n_rec] i_dex =1 GO TOP SCAN WHILE i_dex <= (n_rec -50) ** put id#s in aray d_aray[i_dex] = A->CUSTNO DELETE i_dex = i_dex +1 ENDSCAN i_dex =1 SELECT B && use patcharg ! " # $ % & ' ( ) * E * , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T E * V W X Y Z [ \ ] ^ _ ` a b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~ E * E * E * E ~ FORMAT RELEASE WINDOW W1 CLEAR TYPEAHEAD SET ESCAPE ON ON ERROR DO Err_proc WITH INKEY(), PROGRAM(), LINENO(), ERROR(),; DBF(), MESSAGE() ***check for number of records ...limit = 50 n_rec = 0 && number of records USE PATMAIN.DBF IN A ORDER TAG CUSTNO USE PATCHARG.DBF IN B ORDER TAG USE PATPAY.DBF IN C ORDER TAG CUSTNO USE HISTORY.DBF IN D ORDER TAG CUSTNO SELECT A && use paymain n_rec = RECCOUNT() IF n_rec > 50 ** setup aray to hold id#s to delete DECLARE d_aray[n_rec] i_dex =1 GO TOP SCAN WHILE i_dex <= (n_rec -50) ** put id#s in aray d_aray[i_dex] = A->CUSTNO DELETE i_dex = i_dex +1 ENDSCAN i_dex =1 SELECT B && use patcharg ! " # $ % & ' ( ) * E * , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T E * V W X Y Z [ \ ] ^ _ ` a b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~ E * E * E * E FORMAT RELEASE WINDOW W1 CLEAR TYPEAHEAD SET ESCAPE ON ON ERROR DO Err_proc WITH INKEY(), PROGRAM(), LINENO(), ERROR(),; DBF(), MESSAGE() ***check for number of records ...limit = 50 n_rec = 0 && number of records USE PATMAIN.DBF IN A ORDER TAG CUSTNO USE PATCHARG.DBF IN B ORDER TAG USE PATPAY.DBF IN C ORDER TAG CUSTNO USE HISTORY.DBF IN D ORDER TAG CUSTNO SELECT A && use paymain n_rec = RECCOUNT() IF n_rec > 50 ** setup aray to hold id#s to delete DECLARE d_aray[n_rec] i_dex =1 GO TOP SCAN WHILE i_dex <= (n_rec -50) ** put id#s in aray d_aray[i_dex] = A->CUSTNO DELETE i_dex = i_dex +1 ENDSCAN i_dex =1 SELECT B && use patcharg ! " # $ % & ' ( ) * E * , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T E * V W X Y Z [ \ ] ^ _ ` a b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~ E * E * E * E FORMAT RELEASE WINDOW W1 CLEAR TYPEAHEAD SET ESCAPE ON ON ERROR DO Err_proc WITH INKEY(), PROGRAM(), LINENO(), ERROR(),; DBF(), MESSAGE() ***check for number of records ...limit = 50 n_rec = 0 && number of records USE PATMAIN.DBF IN A ORDER TAG CUSTNO USE PATCHARG.DBF IN B ORDER TAG USE PATPAY.DBF IN C ORDER TAG CUSTNO USE HISTORY.DBF IN D ORDER TAG CUSTNO SELECT A && use paymain n_rec = RECCOUNT() IF n_rec > 50 ** setup aray to hold id#s to delete DECLARE d_aray[n_rec] i_dex =1 GO TOP SCAN WHILE i_dex <= (n_rec -50) ** put id#s in aray d_aray[i_dex] = A->CUSTNO DELETE i_dex = i_dex +1 ENDSCAN i_dex =1 SELECT B && use patcharg ! " # $ % & ' ( ) * E * , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T E * V W X Y Z [ \ ] ^ _ ` a b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~ E * E * E * E FORMAT RELEASE WINDOW W1 CLEAR TYPEAHEAD SET ESCAPE ON ON ERROR DO Err_proc WITH INKEY(), PROGRAM(), LINENO(), ERROR(),; DBF(), MESSAGE() ***check for number of records ...limit = 50 n_rec = 0 && number of records USE PATMAIN.DBF IN A ORDER TAG CUSTNO USE PATCHARG.DBF IN B ORDER TAG USE PATPAY.DBF IN C ORDER TAG CUSTNO USE HISTORY.DBF IN D ORDER TAG CUSTNO SELECT A && use paymain n_rec = RECCOUNT() IF n_rec > 50 ** setup aray to hold id#s to delete DECLARE d_aray[n_rec] i_dex =1 GO TOP SCAN WHILE i_dex <= (n_rec -50) ** put id#s in aray d_aray[i_dex] = A->CUSTNO DELETE i_dex = i_dex +1 ENDSCAN i_dex =1 SELECT B && use patcharg ! " # $ % & ' ( ) * E * , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T E * V W X Y Z [ \ ] ^ _ ` a b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~ E * E * E * E FORMAT RELEASE WINDOW W1 CLEAR TYPEAHEAD SET ESCAPE ON ON ERROR DO Err_proc WITH INKEY(), PROGRAM(), LINENO(), ERROR(),; DBF(), MESSAGE() ***check for number of records ...limit = 50 n_rec = 0 && number of records USE PATMAIN.DBF IN A ORDER TAG CUSTNO USE PATCHARG.DBF IN B ORDER TAG USE PATPAY.DBF IN C ORDER TAG CUSTNO USE HISTORY.DBF IN D ORDER TAG CUSTNO SELECT A && use paymain n_rec = RECCOUNT() IF n_rec > 50 ** setup aray to hold id#s to delete DECLARE d_aray[n_rec] i_dex =1 GO TOP SCAN WHILE i_dex <= (n_rec -50) ** put id#s in aray d_aray[i_dex] = A->CUSTNO DELETE i_dex = i_dex +1 ENDSCAN i_dex =1 SELECT B && use patcharg XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX ! XXXXXXXXX " XXXXXXXXX # XXXXXXXXX $ XXXXXXXXX % XXXXXXXXX & XXXXXXXXX ' XXXXXXXXX ( XXXXXXXXX ) XXXXXXXXX * XXXXXXXXX E * XXXXXXXXX , XXXXXXXXX - XXXXXXXXX . XXXXXXXXX / XXXXXXXXX 0 XXXXXXXXX 1 XXXXXXXXX 2 XXXXXXXXX 3 XXXXXXXXX 4 XXXXXXXXX 5 XXXXXXXXX 6 XXXXXXXXX 7 XXXXXXXXX 8 XXXXXXXXX 9 XXXXXXXXX : XXXXXXXXX ; XXXXXXXXX < XXXXXXXXX = XXXXXXXXX > XXXXXXXXX ? XXXXXXXXX @ XXXXXXXXX A XXXXXXXXX B XXXXXXXXX C XXXXXXXXX D XXXXXXXXX E XXXXXXXXX F XXXXXXXXX G XXXXXXXXX H XXXXXXXXX I XXXXXXXXX J XXXXXXXXX K XXXXXXXXX L XXXXXXXXX M XXXXXXXXX N XXXXXXXXX O XXXXXXXXX P XXXXXXXXX Q XXXXXXXXX R XXXXXXXXX S XXXXXXXXX T XXXXXXXXX E * XXXXXXXXX V XXXXXXXXX W XXXXXXXXX X XXXXXXXXX Y XXXXXXXXX Z XXXXXXXXX [ XXXXXXXXX \ XXXXXXXXX ] XXXXXXXXX ^ XXXXXXXXX _ XXXXXXXXX ` XXXXXXXXX a XXXXXXXXX b XXXXXXXXX c XXXXXXXXX d XXXXXXXXX e XXXXXXXXX f XXXXXXXXX g XXXXXXXXX h XXXXXXXXX i XXXXXXXXX j XXXXXXXXX k XXXXXXXXX l XXXXXXXXX m XXXXXXXXX n XXXXXXXXX o XXXXXXXXX p XXXXXXXXX q XXXXXXXXX r XXXXXXXXX s XXXXXXXXX t XXXXXXXXX u XXXXXXXXX v XXXXXXXXX w XXXXXXXXX x XXXXXXXXX y XXXXXXXXX z XXXXXXXXX { XXXXXXXXX | XXXXXXXXX } XXXXXXXXX ~ XXXXXXXXX E * XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX E * XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX E * XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX E XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX FORMAT RELEASE WINDOW W1 CLEAR TYPEAHEAD SET ESCAPE ON ON ERROR DO Err_proc WITH INKEY(), PROGRAM(), LINENO(), ERROR(),; DBF(), MESSAGE() ***check for number of records ...limit = 50 n_rec = 0 && number of records USE PATMAIN.DBF IN A ORDER TAG CUSTNO USE PATCHARG.DBF IN B ORDER TAG USE PATPAY.DBF IN C ORDER TAG CUSTNO USE HISTORY.DBF IN D ORDER TAG CUSTNO SELECT A && use paymain n_rec = RECCOUNT() IF n_rec > 50 ** setup aray to hold id#s to delete DECLARE d_aray[n_rec] i_dex =1 GO TOP SCAN WHILE i_dex <= (n_rec -50) ** put id#s in aray d_aray[i_dex] = A->CUSTNO DELETE i_dex = i_dex +1 ENDSCAN i_dex =1 SELECT B && use patcharg XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX ! XXXXXXXXX " XXXXXXXXX # XXXXXXXXX $ XXXXXXXXX % XXXXXXXXX & XXXXXXXXX ' XXXXXXXXX ( XXXXXXXXX ) XXXXXXXXX * XXXXXXXXX E * XXXXXXXXX , XXXXXXXXX - XXXXXXXXX . XXXXXXXXX / XXXXXXXXX 0 XXXXXXXXX 1 XXXXXXXXX 2 XXXXXXXXX 3 XXXXXXXXX 4 XXXXXXXXX 5 XXXXXXXXX 6 XXXXXXXXX 7 XXXXXXXXX 8 XXXXXXXXX 9 XXXXXXXXX : XXXXXXXXX ; XXXXXXXXX < XXXXXXXXX = XXXXXXXXX > XXXXXXXXX ? XXXXXXXXX @ XXXXXXXXX A XXXXXXXXX B XXXXXXXXX C XXXXXXXXX D XXXXXXXXX E XXXXXXXXX F XXXXXXXXX G XXXXXXXXX H XXXXXXXXX I XXXXXXXXX J XXXXXXXXX K XXXXXXXXX L XXXXXXXXX M XXXXXXXXX N XXXXXXXXX O XXXXXXXXX P XXXXXXXXX Q XXXXXXXXX R XXXXXXXXX S XXXXXXXXX T XXXXXXXXX E * XXXXXXXXX V XXXXXXXXX W XXXXXXXXX X XXXXXXXXX Y XXXXXXXXX Z XXXXXXXXX [ XXXXXXXXX \ XXXXXXXXX ] XXXXXXXXX ^ XXXXXXXXX _ XXXXXXXXX ` XXXXXXXXX a XXXXXXXXX b XXXXXXXXX c XXXXXXXXX d XXXXXXXXX e XXXXXXXXX f XXXXXXXXX g XXXXXXXXX h XXXXXXXXX i XXXXXXXXX j XXXXXXXXX k XXXXXXXXX l XXXXXXXXX m XXXXXXXXX n XXXXXXXXX o XXXXXXXXX p XXXXXXXXX q XXXXXXXXX r XXXXXXXXX s XXXXXXXXX t XXXXXXXXX u XXXXXXXXX v XXXXXXXXX w XXXXXXXXX x XXXXXXXXX y XXXXXXXXX z XXXXXXXXX { XXXXXXXXX | XXXXXXXXX } XXXXXXXXX ~ XXXXXXXXX E * XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX E * XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX E * XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX E XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX FORMAT RELEASE WINDOW W1 CLEAR TYPEAHEAD SET ESCAPE ON ON ERROR DO Err_proc WITH INKEY(), PROGRAM(), LINENO(), ERROR(),; DBF(), MESSAGE() ***check for number of records ...limit = 50 n_rec = 0 && number of records USE PATMAIN.DBF IN A ORDER TAG CUSTNO USE PATCHARG.DBF IN B ORDER TAG USE PATPAY.DBF IN C ORDER TAG CUSTNO USE HISTORY.DBF IN D ORDER TAG CUSTNO SELECT A && use paymain n_rec = RECCOUNT() IF n_rec > 50 ** setup aray to hold id#s to delete DECLARE d_aray[n_rec] i_dex =1 GO TOP SCAN WHILE i_dex <= (n_rec -50) ** put id#s in aray d_aray[i_dex] = A->CUSTNO DELETE i_dex = i_dex +1 ENDSCAN i_dex =1 SELECT B && use patcharg ! " # $ % & ' ( ) * E * , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T E * V W X Y Z [ \ ] ^ _ ` a b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~ E * E * E * E FORMAT RELEASE WINDOW W1 CLEAR TYPEAHEAD SET ESCAPE ON ON ERROR DO Err_proc WITH INKEY(), PROGRAM(), LINENO(), ERROR(),; DBF(), MESSAGE() ***check for number of records ...limit = 50 n_rec = 0 && number of records USE PATMAIN.DBF IN A ORDER TAG CUSTNO USE PATCHARG.DBF IN B ORDER TAG USE PATPAY.DBF IN C ORDER TAG CUSTNO USE HISTORY.DBF IN D ORDER TAG CUSTNO SELECT A && use paymain n_rec = RECCOUNT() IF n_rec > 50 ** setup aray to hold id#s to delete DECLARE d_aray[n_rec] i_dex =1 GO TOP SCAN WHILE i_dex <= (n_rec -50) ** put id#s in aray d_aray[i_dex] = A->CUSTNO DELETE i_dex = i_dex +1 ENDSCAN i_dex =1 SELECT B && use patcharg ! " # $ % & ' ( ) * E * , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T E * V W X Y Z [ \ ] ^ _ ` a b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~ E * E * E * E FORMAT RELEASE WINDOW W1 CLEAR TYPEAHEAD SET ESCAPE ON ON ERROR DO Err_proc WITH INKEY(), PROGRAM(), LINENO(), ERROR(),; DBF(), MESSAGE() ***check for number of records ...limit = 50 n_rec = 0 && number of records USE PATMAIN.DBF IN A ORDER TAG CUSTNO USE PATCHARG.DBF IN B ORDER TAG USE PATPAY.DBF IN C ORDER TAG CUSTNO USE HISTORY.DBF IN D ORDER TAG CUSTNO SELECT A && use paymain n_rec = RECCOUNT() IF n_rec > 50 ** setup aray to hold id#s to delete DECLARE d_aray[n_rec] i_dex =1 GO TOP SCAN WHILE i_dex <= (n_rec -50) ** put id#s in aray d_aray[i_dex] = A->CUSTNO DELETE i_dex = i_dex +1 ENDSCAN i_dex =1 SELECT B && use patcharg ! " # $ % & ' ( ) * E * , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T E * V W X Y Z [ \ ] ^ _ ` a b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~ E * E * E * E FORMAT RELEASE WINDOW W1 CLEAR TYPEAHEAD SET ESCAPE ON ON ERROR DO Err_proc WITH INKEY(), PROGRAM(), LINENO(), ERROR(),; DBF(), MESSAGE() ***check for number of records ...limit = 50 n_rec = 0 && number of records USE PATMAIN.DBF IN A ORDER TAG CUSTNO USE PATCHARG.DBF IN B ORDER TAG USE PATPAY.DBF IN C ORDER TAG CUSTNO USE HISTORY.DBF IN D ORDER TAG CUSTNO SELECT A && use paymain n_rec = RECCOUNT() IF n_rec > 50 ** setup aray to hold id#s to delete DECLARE d_aray[n_rec] i_dex =1 GO TOP SCAN WHILE i_dex <= (n_rec -50) ** put id#s in aray d_aray[i_dex] = A->CUSTNO DELETE i_dex = i_dex +1 ENDSCAN i_dex =1 SELECT B && use patcharg ! " # $ % & ' ( ) * E * , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T E * V W X Y Z [ \ ] ^ _ ` a b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~ E * E * E * E " $ & ( FORMAT RELEASE WINDOW W1 CLEAR TYPEAHEAD SET ESCAPE ON ON ERROR DO Err_proc WITH INKEY(), PROGRAM(), LINENO(), ERROR(),; DBF(), MESSAGE() ***check for number of records ...limit = 50 n_rec = 0 && number of records USE PATMAIN.DBF IN A ORDER TAG CUSTNO USE PATCHARG.DBF IN B ORDER TAG USE PATPAY.DBF IN C ORDER TAG CUSTNO USE HISTORY.DBF IN D ORDER TAG CUSTNO SELECT A && use paymain n_rec = RECCOUNT() IF n_rec > 50 ** setup aray to hold id#s to delete DECLARE d_aray[n_rec] i_dex =1 GO TOP SCAN WHILE i_dex <= (n_rec -50) ** put id#s in aray d_aray[i_dex] = A->CUSTNO DELETE i_dex = i_dex +1 ENDSCAN i_dex =1 SELECT B && use patcharg ! " # $ % & ' ( ) * E * , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T E * V W X Y Z [ \ ] ^ _ ` a b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~ E * E * E * E . 0 2 4 6 8 FORMAT RELEASE WINDOW W1 CLEAR TYPEAHEAD SET ESCAPE ON ON ERROR DO Err_proc WITH INKEY(), PROGRAM(), LINENO(), ERROR(),; DBF(), MESSAGE() ***check for number of records ...limit = 50 n_rec = 0 && number of records USE PATMAIN.DBF IN A ORDER TAG CUSTNO USE PATCHARG.DBF IN B ORDER TAG USE PATPAY.DBF IN C ORDER TAG CUSTNO USE HISTORY.DBF IN D ORDER TAG CUSTNO SELECT A && use paymain n_rec = RECCOUNT() IF n_rec > 50 ** setup aray to hold id#s to delete DECLARE d_aray[n_rec] i_dex =1 GO TOP SCAN WHILE i_dex <= (n_rec -50) ** put id#s in aray d_aray[i_dex] = A->CUSTNO DELETE i_dex = i_dex +1 ENDSCAN i_dex =1 SELECT B && use patcharg ! " # $ % & ' ( ) * E * , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T E * V W X Y Z [ \ ] ^ _ ` a b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~ E * E * E * E > @ B D F H FORMAT RELEASE WINDOW W1 CLEAR TYPEAHEAD SET ESCAPE ON ON ERROR DO Err_proc WITH INKEY(), PROGRAM(), LINENO(), ERROR(),; DBF(), MESSAGE() ***check for number of records ...limit = 50 n_rec = 0 && number of records USE PATMAIN.DBF IN A ORDER TAG CUSTNO USE PATCHARG.DBF IN B ORDER TAG USE PATPAY.DBF IN C ORDER TAG CUSTNO USE HISTORY.DBF IN D ORDER TAG CUSTNO SELECT A && use paymain n_rec = RECCOUNT() IF n_rec > 50 ** setup aray to hold id#s to delete DECLARE d_aray[n_rec] i_dex =1 GO TOP SCAN WHILE i_dex <= (n_rec -50) ** put id#s in aray d_aray[i_dex] = A->CUSTNO DELETE i_dex = i_dex +1 ENDSCAN i_dex =1 SELECT B && use patcharg ! " # $ % & ' ( ) * E * , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T E * V W X Y Z [ \ ] ^ _ ` a b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~ E * E * E * E N P R T V X FORMAT RELEASE WINDOW W1 CLEAR TYPEAHEAD SET ESCAPE ON ON ERROR DO Err_proc WITH INKEY(), PROGRAM(), LINENO(), ERROR(),; DBF(), MESSAGE() ***check for number of records ...limit = 50 n_rec = 0 && number of records USE PATMAIN.DBF IN A ORDER TAG CUSTNO USE PATCHARG.DBF IN B ORDER TAG USE PATPAY.DBF IN C ORDER TAG CUSTNO USE HISTORY.DBF IN D ORDER TAG CUSTNO SELECT A && use paymain n_rec = RECCOUNT() IF n_rec > 50 ** setup aray to hold id#s to delete DECLARE d_aray[n_rec] i_dex =1 GO TOP SCAN WHILE i_dex <= (n_rec -50) ** put id#s in aray d_aray[i_dex] = A->CUSTNO DELETE i_dex = i_dex +1 ENDSCAN i_dex =1 SELECT B && use patcharg ! " # $ % & ' ( ) * E * , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T E * V W X Y Z [ \ ] ^ _ ` a b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~ E * E * E * E ^ ` b d f h FORMAT RELEASE WINDOW W1 CLEAR TYPEAHEAD SET ESCAPE ON ON ERROR DO Err_proc WITH INKEY(), PROGRAM(), LINENO(), ERROR(),; DBF(), MESSAGE() ***check for number of records ...limit = 50 n_rec = 0 && number of records USE PATMAIN.DBF IN A ORDER TAG CUSTNO USE PATCHARG.DBF IN B ORDER TAG USE PATPAY.DBF IN C ORDER TAG CUSTNO USE HISTORY.DBF IN D ORDER TAG CUSTNO SELECT A && use paymain n_rec = RECCOUNT() IF n_rec > 50 ** setup aray to hold id#s to delete DECLARE d_aray[n_rec] i_dex =1 GO TOP SCAN WHILE i_dex <= (n_rec -50) ** put id#s in aray d_aray[i_dex] = A->CUSTNO DELETE i_dex = i_dex +1 ENDSCAN i_dex =1 SELECT B && use patcharg ! " # $ % & ' ( ) * E * , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N O P Q R S T E * V W X Y Z [ \ ] ^ _ ` a b c d e f g h i j k l m n o p q r s t u v w x y z { | } ~ E * E * E * E n p r t v x FORMAT RELEASE WINDOW W1 CLEAR TYPEAHEAD SET ESCAPE ON ON ERROR DO Err_proc WITH INKEY(), PROGRAM(), LINENO(), ERROR(),; DBF(), MESSAGE() ***check for number of records ...limit = 50 n_rec = 0 && number of records USE PATMAIN.DBF IN A ORDER TAG CUSTNO USE PATCHARG.DBF IN B ORDER TAG USE PATPAY.DBF IN C ORDER TAG CUSTNO USE HISTORY.DBF IN D ORDER TAG CUSTNO SELECT A && use paymain n_rec = RECCOUNT() IF n_rec > 50 ** setup aray to hold id#s to delete DECLARE d_aray[n_rec] i_dex =1 GO TOP SCAN WHILE i_dex <= (n_rec -50) ** put id#s in aray d_aray[i_dex] = A->CUSTNO DELETE i_dex = i_dex +1 ENDSCAN i_dex =1 SELECT B && use patcharg XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX ! XXXXXXXXX " XXXXXXXXX # XXXXXXXXX $ XXXXXXXXX % XXXXXXXXX & XXXXXXXXX ' XXXXXXXXX ( XXXXXXXXX ) XXXXXXXXX * XXXXXXXXX E * XXXXXXXXX , XXXXXXXXX - XXXXXXXXX . XXXXXXXXX / XXXXXXXXX 0 XXXXXXXXX 1 XXXXXXXXX 2 XXXXXXXXX 3 XXXXXXXXX 4 XXXXXXXXX 5 XXXXXXXXX 6 XXXXXXXXX 7 XXXXXXXXX 8 XXXXXXXXX 9 XXXXXXXXX : XXXXXXXXX ; XXXXXXXXX < XXXXXXXXX = XXXXXXXXX > XXXXXXXXX ? XXXXXXXXX @ XXXXXXXXX A XXXXXXXXX B XXXXXXXXX C XXXXXXXXX D XXXXXXXXX E XXXXXXXXX F XXXXXXXXX G XXXXXXXXX H XXXXXXXXX I XXXXXXXXX J XXXXXXXXX K XXXXXXXXX L XXXXXXXXX M XXXXXXXXX N XXXXXXXXX O XXXXXXXXX P XXXXXXXXX Q XXXXXXXXX R XXXXXXXXX S XXXXXXXXX T XXXXXXXXX E * XXXXXXXXX V XXXXXXXXX W XXXXXXXXX X XXXXXXXXX Y XXXXXXXXX Z XXXXXXXXX [ XXXXXXXXX \ XXXXXXXXX ] XXXXXXXXX ^ XXXXXXXXX _ XXXXXXXXX ` XXXXXXXXX a XXXXXXXXX b XXXXXXXXX c XXXXXXXXX d XXXXXXXXX e XXXXXXXXX f XXXXXXXXX g XXXXXXXXX h XXXXXXXXX i XXXXXXXXX j XXXXXXXXX k XXXXXXXXX l XXXXXXXXX m XXXXXXXXX n XXXXXXXXX o XXXXXXXXX p XXXXXXXXX q XXXXXXXXX r XXXXXXXXX s XXXXXXXXX t XXXXXXXXX u XXXXXXXXX v XXXXXXXXX w XXXXXXXXX x XXXXXXXXX y XXXXXXXXX z XXXXXXXXX { XXXXXXXXX | XXXXXXXXX } XXXXXXXXX ~ XXXXXXXXX E * XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX E * XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX E * XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX E XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX ~ XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX FORMAT RELEASE WINDOW W1 CLEAR TYPEAHEAD SET ESCAPE ON ON ERROR DO Err_proc WITH INKEY(), PROGRAM(), LINENO(), ERROR(),; DBF(), MESSAGE() ***check for number of records ...limit = 50 n_rec = 0 && number of records USE PATMAIN.DBF IN A ORDER TAG CUSTNO USE PATCHARG.DBF IN B ORDER TAG USE PATPAY.DBF IN C ORDER TAG CUSTNO USE HISTORY.DBF IN D ORDER TAG CUSTNO SELECT A && use paymain n_rec = RECCOUNT() IF n_rec > 50 ** setup aray to hold id#s to delete DECLARE d_aray[n_rec] i_dex =1 GO TOP SCAN WHILE i_dex <= (n_rec -50) ** put id#s in aray d_aray[i_dex] = A->CUSTNO DELETE i_dex = i_dex +1 ENDSCAN i_dex =1 SELECT B && use patcharg XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX ! XXXXXXXXX " XXXXXXXXX # XXXXXXXXX $ XXXXXXXXX % XXXXXXXXX & XXXXXXXXX ' XXXXXXXXX ( XXXXXXXXX ) XXXXXXXXX * XXXXXXXXX E * XXXXXXXXX , XXXXXXXXX - XXXXXXXXX . XXXXXXXXX / XXXXXXXXX 0 XXXXXXXXX 1 XXXXXXXXX 2 XXXXXXXXX 3 XXXXXXXXX 4 XXXXXXXXX 5 XXXXXXXXX 6 XXXXXXXXX 7 XXXXXXXXX 8 XXXXXXXXX 9 XXXXXXXXX : XXXXXXXXX ; XXXXXXXXX < XXXXXXXXX = XXXXXXXXX > XXXXXXXXX ? XXXXXXXXX @ XXXXXXXXX A XXXXXXXXX B XXXXXXXXX C XXXXXXXXX D XXXXXXXXX E XXXXXXXXX F XXXXXXXXX G XXXXXXXXX H XXXXXXXXX I XXXXXXXXX J XXXXXXXXX K XXXXXXXXX L XXXXXXXXX M XXXXXXXXX N XXXXXXXXX O XXXXXXXXX P XXXXXXXXX Q XXXXXXXXX R XXXXXXXXX S XXXXXXXXX T XXXXXXXXX E * XXXXXXXXX V XXXXXXXXX W XXXXXXXXX X XXXXXXXXX Y XXXXXXXXX Z XXXXXXXXX [ XXXXXXXXX \ XXXXXXXXX ] XXXXXXXXX ^ XXXXXXXXX _ XXXXXXXXX ` XXXXXXXXX a XXXXXXXXX b XXXXXXXXX c XXXXXXXXX d XXXXXXXXX e XXXXXXXXX f XXXXXXXXX g XXXXXXXXX h XXXXXXXXX i XXXXXXXXX j XXXXXXXXX k XXXXXXXXX l XXXXXXXXX m XXXXXXXXX n XXXXXXXXX o XXXXXXXXX p XXXXXXXXX q XXXXXXXXX r XXXXXXXXX s XXXXXXXXX t XXXXXXXXX u XXXXXXXXX v XXXXXXXXX w XXXXXXXXX x XXXXXXXXX y XXXXXXXXX z XXXXXXXXX { XXXXXXXXX | XXXXXXXXX } XXXXXXXXX ~ XXXXXXXXX E * XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX E * XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX E * XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX E XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX FORMAT RELEASE WINDOW W1 CLEAR TYPEAHEAD SET ESCAPE ON ON ERROR DO Err_proc WITH INKEY(), PROGRAM(), LINENO(), ERROR(),; DBF(), MESSAGE() ***check for number of records ...limit = 50 n_rec = 0 && number of records USE PATMAIN.DBF IN A ORDER TAG CUSTNO USE PATCHARG.DBF IN B ORDER TAG USE PATPAY.DBF IN C ORDER TAG CUSTNO USE HISTORY.DBF IN D ORDER TAG CUSTNO SELECT A && use paymain n_rec = RECCOUNT() IF n_rec > 50 ** setup aray to hold id#s to delete DECLARE d_aray[n_rec] i_dex =1 GO TOP SCAN WHILE i_dex <= (n_rec -50) ** put id#s in aray d_aray[i_dex] = A->CUSTNO DELETE i_dex = i_dex +1 ENDSCAN i_dex =1 SELECT B && use patcharg E T E T E XXXXXXXXX XXXXXXXXX XXXXXXXXX XXXXXXXXX FORMAT RELEASE WINDOW W1 CLEAR TYPEAHEAD SET ESCAPE ON ON ERROR DO Err_proc WITH INKEY(), PROGRAM(), LINENO(), ERROR(),; DBF(), MESSAGE() ***check for number of records ...limit = 50 n_rec = 0 && number of records USE PATMAIN.DBF IN A ORDER TAG CUSTNO USE PATCHARG.DBF IN B ORDER TAG USE PATPAY.DBF IN C ORDER TAG CUSTNO USE HISTORY.DBF IN D ORDER TAG CUSTNO SELECT A && use paymain n_rec = RECCOUNT() IF n_rec > 50 ** setup aray to hold id#s to delete DECLARE d_aray[n_rec] i_dex =1 GO TOP SCAN WHILE i_dex <= (n_rec -50) ** put id#s in aray d_aray[i_dex] = A->CUSTNO DELETE i_dex = i_dex +1 ENDSCAN i_dex =1 SELECT B && use patcharg